home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Film Loops.dir / Standard Elements_3_Rollover Handlers.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1.7 KB  |  51 lines
  1. on FindButtons
  2.   global gMaxChannels, gFilmLoopsButtonPropertyList, gFilmLoopsPagePropertyList
  3.   set buttonLinearList to []
  4.   set pageLinearList to []
  5.   repeat with N = 1 to gMaxChannels
  6.     if the type of sprite N <> 0 then
  7.       puppetSprite(N, 0)
  8.       if the name of the member of sprite N contains "Button" then
  9.         append(buttonLinearList, N)
  10.       end if
  11.       if word 1 of the name of the member of sprite N = "Page" then
  12.         append(pageLinearList, N)
  13.       end if
  14.     end if
  15.   end repeat
  16.   BuildButtonPropertyList(buttonLinearList)
  17.   set gFilmLoopsButtonPropertyList to the result
  18.   BuildButtonPropertyList(pageLinearList)
  19.   set gFilmLoopsPagePropertyList to the result
  20. end
  21.  
  22. on BuildButtonPropertyList whichList
  23.   set resultPropertyList to [:]
  24.   repeat with N = 1 to count(whichList)
  25.     set testSprite to getAt(whichList, N)
  26.     set whichMemberNum to the number of the member of sprite testSprite
  27.     if (the name of member whichMemberNum contains "Page") and (the name of member whichMemberNum contains "Blank") then
  28.       set whichMemberNum to whichMemberNum + 1
  29.     end if
  30.     addProp(resultPropertyList, testSprite, whichMemberNum)
  31.   end repeat
  32.   return resultPropertyList
  33. end
  34.  
  35. on doRollOverCheck
  36.   global gFilmLoopsButtonPropertyList
  37.   repeat with N = 1 to count(gFilmLoopsButtonPropertyList)
  38.     set testSprite to getPropAt(gFilmLoopsButtonPropertyList, N)
  39.     set spriteMember to getaProp(gFilmLoopsButtonPropertyList, testSprite)
  40.     if not (the mouseDown) then
  41.       if rollOver(testSprite) then
  42.         puppetSprite(testSprite, 1)
  43.         set the member of sprite testSprite to spriteMember + 2
  44.         next repeat
  45.       end if
  46.       set the member of sprite testSprite to spriteMember
  47.       puppetSprite(testSprite, 0)
  48.     end if
  49.   end repeat
  50. end
  51.